home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / paint.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-06  |  293 b   |  18 lines
  1. 10  SCREEN 1,1
  2. 20  COLOR 9,0
  3. 30  KEY OFF
  4. 40  LINE (70,75)-(120,125),1,B
  5. 50  LOCATE 25,1
  6. 60  INPUT "Press ENTER to continue-";ANS$
  7. 70  CIRCLE (70,100),25,1
  8. 80  PAINT (65,98),1
  9. 90  LOCATE 25,25 :INPUT A$
  10. 100  PAINT (115,100),2,1
  11. 110  LOCATE 25,25 :INPUT A$
  12. 120  PAINT (75,100),3,1
  13. 130  LOCATE 25,1
  14. 140  INPUT "Press ENTER to continue-";ANS$
  15. 150  SCREEN 0
  16. 160  WIDTH 80
  17. 170  KEY ON
  18.